readSource :: Project -> BS.ByteString -> Task.Task (Maybe Module.Raw, Info)
readSource project source =
  Task.mapError Error.Crawl $
    atRoot $ parse project "elm" fakeTime source
readSource :: Project -> BS.ByteString -> Task.Task (Maybe Module.Raw, Info)
readSource project source =
  Task.mapError Error.Crawl $
    atRoot $ parse project "elm" fakeTime source
readSource project source =
  Task.mapError Error.Crawl $
    atRoot $ parse project "elm" fakeTime source