{id: 1, queens: $elm$core$Set$empty, size: 8},

		{id: 1, queens: $elm$core$Set$empty, size: 8, status: $elm$core$Maybe$Nothing},

var $author$project$Queens$Solved = {$: 'Solved'};
var $author$project$Queens$Unsolvable = {$: 'Unsolvable'};

		var formatQueen = function (_v3) {
			var i = _v3.a;
			var j = _v3.b;
			return '&queen=' + ($elm$core$String$fromInt(i) + (':' + $elm$core$String$fromInt(j)));
		};
		var solveUrl = 'solve?id=1&size=' + ($elm$core$String$fromInt(model.size) + A3(
			$elm$core$List$foldl,
			$elm$core$Basics$append,
			'',
			A2(
				$elm$core$List$map,
				formatQueen,
				$elm$core$Set$toList(model.queens))));

								model.queens)

								model.queens),
							status: $elm$core$Maybe$Nothing

								model.queens)

								model.queens),
							status: $elm$core$Maybe$Nothing

						{queens: $elm$core$Set$empty}),

						{queens: $elm$core$Set$empty, status: $elm$core$Maybe$Nothing}),

							size: size

							size: size,
							status: $elm$core$Maybe$Nothing

							url: 'solve?id=1&size=' + $elm$core$String$fromInt(model.size)

							url: solveUrl

										sol))

										sol)),
								status: $elm$core$Maybe$Just($author$project$Queens$Solved)

					return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);

					return _Utils_Tuple2(
						_Utils_update(
							model,
							{
								status: $elm$core$Maybe$Just($author$project$Queens$Unsolvable)
							}),
						$elm$core$Platform$Cmd$none);

var $mdgriffith$elm_ui$Internal$Model$AlignX = function (a) {
	return {$: 'AlignX', a: a};
};
var $mdgriffith$elm_ui$Internal$Model$Right = {$: 'Right'};
var $mdgriffith$elm_ui$Element$alignRight = $mdgriffith$elm_ui$Internal$Model$AlignX($mdgriffith$elm_ui$Internal$Model$Right);

var $mdgriffith$elm_ui$Internal$Model$AlignX = function (a) {
	return {$: 'AlignX', a: a};
};

	var status = A2(
		$mdgriffith$elm_ui$Element$el,
		_List_fromArray(
			[
				$mdgriffith$elm_ui$Element$width($mdgriffith$elm_ui$Element$fill),
				$mdgriffith$elm_ui$Element$padding(10)
			]),
		function () {
			var _v0 = model.status;
			if (_v0.$ === 'Just') {
				var s = _v0.a;
				if (s.$ === 'Solved') {
					return $mdgriffith$elm_ui$Element$text('Solved ✔');
				} else {
					return $mdgriffith$elm_ui$Element$text('Unsolvable ✖');
				}
			} else {
				return $mdgriffith$elm_ui$Element$none;
			}
		}());

							$mdgriffith$elm_ui$Element$alignRight

							$mdgriffith$elm_ui$Element$width($mdgriffith$elm_ui$Element$fill)

							status,

    , status : Maybe Status

type Status = Solved | Unsolvable

      , status = Nothing

    case msg of

    let 
        solveUrl = 
            "solve?id=1&size=" 
            ++ String.fromInt model.size 
            ++ (List.foldl (++) "" <| List.map formatQueen (Set.toList model.queens))

        AddQueen i j
            -> ( { model | queens = Set.insert (i,j) model.queens }, Cmd.none )

        formatQueen (i,j) = "&queen=" ++ String.fromInt i ++ ":" ++ String.fromInt j
    in
        case msg of

        RemoveQueen i j
            -> ( { model | queens = Set.remove (i,j) model.queens }, Cmd.none )

            AddQueen i j
                -> ( { model | queens = Set.insert (i,j) model.queens, status = Nothing }, Cmd.none )

        ClearQueens
            -> ( { model | queens = Set.empty }, Cmd.none )

            RemoveQueen i j
                -> ( { model | queens = Set.remove (i,j) model.queens, status = Nothing }, Cmd.none )

        ChangeBoardSize size
            -> (
            { model 
                | size = size
                , queens = Set.filter (\(x,y) -> x < size && y < size) model.queens 
            }
            , Cmd.none
            )

            ClearQueens
                -> ( { model | queens = Set.empty, status = Nothing }, Cmd.none )

        Solve
            ->
                ( model
                , Http.get 
                    { url = "solve?id=1&size=" ++ String.fromInt model.size 
                    , expect = Http.expectJson ReceivedSolution solutionDecoder
                    }

            ChangeBoardSize size
                -> (
                { model 
                    | size = size
                    , queens = Set.filter (\(x,y) -> x < size && y < size) model.queens 
                    , status = Nothing
                }
                , Cmd.none

        ReceivedSolution maybeSol
            -> case maybeSol of
                Ok(sol) ->  ( { model | queens = Set.fromList <| List.map (\l -> listToTuple l) sol}, Cmd.none )
                Err(err) -> ( model, Cmd.none )

            Solve
                ->
                    ( model
                    , Http.get 
                        { url = solveUrl
                        , expect = Http.expectJson ReceivedSolution solutionDecoder
                        }
                    )
            ReceivedSolution maybeSol
                -> case maybeSol of
                    Ok(sol) ->  ( { model | status = Just Solved, queens = Set.fromList <| List.map (\l -> listToTuple l) sol}, Cmd.none )
                    Err(err) -> ( { model | status = Just Unsolvable }, Cmd.none )

        _ -> ( model, Cmd.none )

            _ -> ( model, Cmd.none )

        status = el
            [ Element.width fill
            , padding 10
            ]
            <| case model.status of
                Just s ->
                    case s of
                        Solved -> text <| "Solved ✔"
                        Unsolvable -> text <| "Unsolvable ✖"
                Nothing 
                    -> Element.none

                , row [spacing 10, alignRight] [sizeSlider, b "Clear" ClearQueens, b "Solve" Solve]

                , row [spacing 10, Element.width fill] [ status, sizeSlider, b "Clear" ClearQueens, b "Solve" Solve]

-- Decoders and Encoders

elmcorePlatformProgramauthorprojectQueensFlags��������
authorprojectQueensModel��������
�������id��elmcoreBasicsIntqueens��elmcoreSetSetelmcoreBasicsIntelmcoreBasicsInt�size��elmcoreBasicsInt�authorprojectQueensMsg�������
Msg���������������AddQueen����������������������elmcoreBasicsIntelmcoreBasicsIntRemoveQueen�������
��������������elmcoreBasicsIntelmcoreBasicsIntClearQueens�����������������������ChangeBoardSize��������������
�������
elmcoreBasicsIntSolve�����������������������ReceivedSolution��������������
�������
	elmcoreResultResultelmhttpHttpErrorelmcoreListListelmcoreListListelmcoreBasicsIntNoOp��������������������������������������Flags
��������Model
���������������id��elmcoreBasicsIntqueens�elmcoreSetSetelmcoreBasicsIntelmcoreBasicsInt�size�
elmcoreBasicsInt���������

elmcorePlatformProgramauthorprojectQueensFlags��������
authorprojectQueensModel��������
�������id��elmcoreBasicsIntqueens��elmcoreSetSetelmcoreBasicsIntelmcoreBasicsInt�size��elmcoreBasicsIntstatus��elmcoreMaybeMaybeauthorprojectQueensStatus�authorprojectQueensMsg�������Msg���������������AddQueen����������������������elmcoreBasicsIntelmcoreBasicsIntRemoveQueen�������
��������������elmcoreBasicsIntelmcoreBasicsIntClearQueens�����������������������ChangeBoardSize��������������
�������
elmcoreBasicsIntSolve�����������������������ReceivedSolution��������������
�������
	elmcoreResultResultelmhttpHttpErrorelmcoreListListelmcoreListListelmcoreBasicsIntNoOp�������������������������������Status���������������Solved������������������������
Unsolvable�������
�����������������������
�������Flags
��������Model
���������������id��elmcoreBasicsIntqueens�elmcoreSetSetelmcoreBasicsIntelmcoreBasicsInt�size�
elmcoreBasicsIntstatus�elmcoreMaybeMaybeauthorprojectQueensStatus���������