getFileType :: Compiler a FileType
getFileType = getIdentifier >>^ fileType . toFilePath
getFileType :: Compiler a FileType
getFileType = getIdentifier >>^ fileType . toFilePath
getFileType = getIdentifier >>^ fileType . toFilePath