bugfix
This commit is contained in:
parent
b8ba60428a
commit
4c3ad80f32
6 changed files with 26 additions and 22 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue