energyFileSource :: FilePath -> Source IO L1NormInfo
energyFileSource filePath = do
  h <- liftIO $ openFile filePath ReadMode
  x <- liftIO $ TL.hGetLine h
  xs <- liftIO $ TL.hGetContents h
  sourceList . L.map parseL1NormInfo . TL.lines $ xs
  liftIO $ hClose h
energyFileSource :: FilePath -> Source IO L1NormInfo
energyFileSource filePath = do
  h <- liftIO $ openFile filePath ReadMode
  x <- liftIO $ TL.hGetLine h
  xs <- liftIO $ TL.hGetContents h
  sourceList . L.map parseL1NormInfo . TL.lines $ xs
  liftIO $ hClose h
energyFileSource filePath = do
  h <- liftIO $ openFile filePath ReadMode
  x <- liftIO $ TL.hGetLine h
  xs <- liftIO $ TL.hGetContents h
  sourceList . L.map parseL1NormInfo . TL.lines $ xs
  liftIO $ hClose h