This commit is contained in:
Joey Hess 2010-10-14 20:05:04 -04:00
commit 4c3ad80f32
6 changed files with 26 additions and 22 deletions

View file

@ -28,7 +28,7 @@ parseBackendList s =
then supportedBackends
else map (lookupBackendName) $ words s
{- Looks up a supported backed by name. -}
{- Looks up a supported backend by name. -}
lookupBackendName :: String -> Backend
lookupBackendName s =
if ((length matches) /= 1)