module FileExList where

import Ex
import Util

import Control.Monad
import Data.Char

readExFile :: FilePath -> IO Exercises
readExFile = liftM pExList . readFile

pExList :: String -> Exercises
pExList = fromList . map (\ (x:xs) -> (x,xs)) 
          . filter (not . null) . splitBy null . lines