fix issue with dot folders

bup-backup.hs

@@ -4,13 +4,14 @@
 #! env     | BUP_DIR
 #! haskell | shell-conduit filepath
 
-import Data.List (intersperse)
+import Data.List                   (intersperse)
 import Data.Conduit.Shell
 import Data.Conduit.Shell.Segments (strings)
 import Data.Conduit.Shell.Variadic (variadicProcess)
 import System.FilePath
 
 
+-- | regexs for excluded files
 excluded :: [String]
 excluded = intersperse "--exclude-rx"
   [ "/home/rnhmjoj/game/"
@@ -20,18 +21,20 @@ excluded = intersperse "--exclude-rx"
 
 
 main :: IO ()
-main = run (strings (bup "ls") >>= mapM_ backup)
+main = run $ mapM_ backup =<< strings (bup "ls")
 
 
+-- | Finds the path of a backup
 findPath :: String -> Segment FilePath
 findPath path = do
-  files <- strings (bup "ls" path)
-  if length files /= 1
-    then return ("/" </> final path)
-    else findPath (path </> head files)
+  files <- strings (bup "ls" "-A" path)
+  if length files == 1
+    then findPath (path </> head files)
+    else return $ "/" </> final path
   where final = concat . drop 2 . splitPath
 
 
+-- | Runs the backup
 backup :: String -> Segment ()
 backup name = do
   path <- findPath (name </> "latest")
@@ -39,5 +42,6 @@ backup name = do
   bup "save" "-n" name path
 
 
+-- | Fix for missing execs on NixOS
 bup :: ProcessType r => String -> r
 bup = variadicProcess "bup"