summaryrefslogtreecommitdiff
path: root/Propellor/Property/Network.hs
diff options
context:
space:
mode:
authorJoey Hess2014-05-14 19:41:05 -0400
committerJoey Hess2014-05-14 19:41:05 -0400
commit7115d1ec162b4059b3e8e8f84bd8d5898c1db025 (patch)
tree42c1cce54e890e1d56484794ab33129132d8fee2 /Propellor/Property/Network.hs
parentffe371a9d42cded461236e972a24a142419d7fc4 (diff)
moved source code to src
This is to work around OSX's brain-damange regarding filename case insensitivity. Avoided moving config.hs, because it's a config file. Put in a symlink to make build work.
Diffstat (limited to 'Propellor/Property/Network.hs')
-rw-r--r--Propellor/Property/Network.hs30
1 files changed, 0 insertions, 30 deletions
diff --git a/Propellor/Property/Network.hs b/Propellor/Property/Network.hs
deleted file mode 100644
index 6009778a..00000000
--- a/Propellor/Property/Network.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-module Propellor.Property.Network where
-
-import Propellor
-import Propellor.Property.File
-
-interfaces :: FilePath
-interfaces = "/etc/network/interfaces"
-
--- | 6to4 ipv6 connection, should work anywhere
-ipv6to4 :: Property
-ipv6to4 = fileProperty "ipv6to4" go interfaces
- `onChange` ifUp "sit0"
- where
- go ls
- | all (`elem` ls) stanza = ls
- | otherwise = ls ++ stanza
- stanza =
- [ "# Automatically added by propeller"
- , "iface sit0 inet6 static"
- , "\taddress 2002:5044:5531::1"
- , "\tnetmask 64"
- , "\tgateway ::192.88.99.1"
- , "auto sit0"
- , "# End automatically added by propeller"
- ]
-
-type Interface = String
-
-ifUp :: Interface -> Property
-ifUp iface = cmdProperty "ifup" [iface]