src/Util.hs

   1 module Util where
   2
   3 import Data.Text hiding (filter)
   4 import System.Directory
   5
   6 ununlines :: [Text] -> Text
   7 ununlines = intercalate "\n\n"
   8
   9 slugify = toLower. replace " " "-"
  10 urlify = slugify . replace "?" ""
  11
  12 allFilesIn dir = filter (/= "..")<$>(filter(/= "."))<$>(getDirectoryContents dir)
  13
  14 (+++) = append