cleanup without .hs files

cleanup.hs

import System.Directory
import Data.List

findDotIndex :: String -> Int
findDotIndex a = case findIndex (=='.') a of
  Just x -> x
  otherwise -> 0

splitAtDot :: String -> (String, String)
splitAtDot x = splitAt (findDotIndex x) x

forRemove :: (String, String) -> Bool
forRemove (_, ".") = False
forRemove (_, "..") = False
forRemove (_, ".hs") = False
forRemove (_, ".git") = False
forRemove (_, "cleanup") = False
forRemove _ = True

main = do
  d <- getCurrentDirectory
  c <- getDirectoryContents d
  let splitted = map splitAtDot c
  let target = filter forRemove splitted
  let targetFiles = map (\(a, b) -> a ++ b) target
  mapM (\file -> removeFile file) targetFiles