Skip to content

Commit

Permalink
Cleanup. fix line length
Browse files Browse the repository at this point in the history
  • Loading branch information
nominolo committed Aug 1, 2007
1 parent 4153264 commit cef1fe4
Showing 1 changed file with 9 additions and 4 deletions.
13 changes: 9 additions & 4 deletions Distribution/Program.hs
Original file line number Diff line number Diff line change
Expand Up @@ -81,12 +81,17 @@ data Program

-- |Similar to Maybe, but tells us whether it's specifed by user or
-- not. This includes not just the path, but the program as well.
data ProgramLocation = EmptyLocation -- ^Like Nothing
| UserSpecified FilePath -- ^The user gave the path to this program, eg. --ghc-path=\/usr\/bin\/ghc-6.6
| FoundOnSystem FilePath -- ^The location of the program, as located by searching PATH.
data ProgramLocation
= EmptyLocation -- ^Like Nothing
| UserSpecified FilePath
-- ^The user gave the path to this program,
-- eg. --ghc-path=\/usr\/bin\/ghc-6.6
| FoundOnSystem FilePath
-- ^The location of the program, as located by searching PATH.
deriving (Read, Show)

-- |The configuration is a collection of 'Program's. It's a mapping from the name of the program (eg. ghc) to the Program.
-- |The configuration is a collection of 'Program's. It's a mapping from the
-- name of the program (eg. ghc) to the Program.
data ProgramConfiguration = ProgramConfiguration (Map.Map String Program)

-- Read & Show instances are based on listToFM
Expand Down

0 comments on commit cef1fe4

Please sign in to comment.